home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / daily103.zip / DAILY.SCR next >
Text File  |  1992-12-18  |  7KB  |  250 lines
  1. ;======================================================================
  2. ; OzCIS script for DAILY CompuServe(tm) Maintenance
  3. ;   by Prof John J. Couture, Miramar College, San Diego, CA [72621,2326]
  4. ;   released into the public domain (as if it were worth copyrighting!)
  5. ;   besides I was bored and needed something to do!
  6. ;
  7. ; Adapted from Steve Sneed's [70007,3574] script and documentation
  8. ;   (Steve, OzCIS is such a <NEATO!> program ... Good Job!
  9. ;
  10. ; Version 1.03 - 16:34 12/18/1992
  11. ;   This script does not incur any connect charges (I'm cheap!)
  12. ;   if you're on the standard plan and downloads:
  13. ;      1) Daily Ziff News  (I'm nosey)
  14. ;      2) Daily Compuserve News (It's FREE)
  15. ;      3) Billing activity  (I'm distrusting)
  16. ;      4) Daily weather (maps & script) for California
  17. ;
  18. ; TO RUN:
  19. ;   1.   SAVE the script in your OzCIS sub-directory called DAILY.SCR
  20. ;
  21. ;   2.   Select "Online" then "Custom Pass" from the OzCIS main menu
  22. ;        move the cursor down to DAILY.SCR, press <ENTER> and then sit
  23. ;        back and enjoy your coffee.
  24.  
  25.    ;first, set up an error handler
  26.    ONERROR ErrorHandler
  27.  
  28.    CLS
  29.    LWrite "--------------------------------------------------------"
  30.    LWrite "--- Daily News and Weather                           ---"
  31.    LWrite "--------------------------------------------------------"
  32.    LWrite " "
  33.    Prompt $1 "Do you want the weekly PC Week news? "
  34.    UPCASE $1
  35.  
  36.    Prompt $2 "Do you want ZiffNet  News?           "
  37.    UPCASE $2
  38.  
  39.    Prompt $3 "Do you want the Billing Detail?      "
  40.    UPCASE $3
  41.  
  42.    Prompt $4 "Do you want the Daily Weather?       "
  43.    UPCASE $4
  44.  
  45.    if $1 != "Y" jump Tag2
  46.    GoSub GETPCWNEWS
  47.  
  48.    Tag2:
  49.    if $2 != "Y" jump Tag3
  50.    GoSub GETZNTNEWS
  51.  
  52.    Tag3:
  53.    if $3 != "Y" jump Tag4
  54.    GoSub GetBilling
  55.  
  56.    Tag4:
  57.    if $4 != "Y" jump Tag5
  58.    GoSub GetWeather
  59.  
  60.    Tag5:
  61.    ; Now get creative and put something here!
  62.  
  63.    Tag6:
  64.  
  65.    Tag7:
  66.  
  67.    Tag8:
  68.  
  69.    Tag9:
  70.  
  71.    Tag99:
  72.    ;-------------------------------------------------------------------
  73.    ; All done, now Logoff
  74.    Off
  75.    End
  76.    ;*******************************************************************
  77.  
  78.    ErrorHandler:
  79.    Off
  80.    Fail
  81.    ;*******************************************************************
  82.  
  83.    GetWeather:
  84.    ; Grab the current weather reports for the California region
  85.    ; and a GIF weather map, displaying the GIF map as it downloads.
  86.  
  87.    ;Go to the general WEATHER area...
  88.    LWrite "--------------------------------------------------------"
  89.    LWrite "--- Processing script to capture weather information ---"
  90.    LWrite "--------------------------------------------------------"
  91.    ; The delay gives the screen a chance to catch up
  92.    DELAY 50
  93.  
  94.    GO CIS:WEA-1
  95.  
  96.    ;request State Summary (SS) report for California ..
  97.    lsend "SS CA"
  98.  
  99.    timeout 30
  100.    ;open the capture file, in this case the normal CISMail file
  101.    capture ON CISMAIL.MES
  102.  
  103.    ;if we're on the first loop thru this subroutine, write a fake
  104.    ;mail msg header so we can find the report
  105.    WMH
  106.  
  107.    wait "ID:"
  108.    capture OFF
  109.    send ^M
  110.    wait "choice!"
  111.  
  112.    ;now, go to AWM and get maps. First set timeout to 180 secs...
  113.    timeout 180
  114.    GO AWM
  115.  
  116.    ;use the GWM (GetWeatherMap) command to get some weather map GIFs
  117.    ;the GWM <#> <#> command is only for use in AWM!!!
  118.    ;get map #3, Satelite photograph...
  119.    gwm 3
  120.  
  121.    ;get map #7, regional review, for region #6 (southwest)...
  122.    gwm 7 6
  123.    Return
  124.    ;*******************************************************************
  125.  
  126.    GetZntNews:
  127.    Timeout 30
  128.    LWrite "--------------------------------------------------------"
  129.    LWrite "--- ZiffNet News                                     ---"
  130.    LWrite "--------------------------------------------------------"
  131.    ; The delay gives the screen a chance to catch up
  132.    DELAY 50
  133.  
  134.    GO ZNT:ZNT-1
  135.    Wait "!"
  136.  
  137.    ; 1=Today on ZiffNet
  138.    LSend "1"
  139.  
  140.    Capture ON CISMAIL.MES
  141.    ;write a fake mail msg header
  142.    WMH
  143.    Wait "!"
  144.  
  145.    LSend "1,2,3,4,5,6,7,8,9,10"
  146.    Wait "!"
  147.    Capture OFF
  148.    Return
  149.    ;*******************************************************************
  150.  
  151.    GetPCWNews:
  152.    Timeout 30
  153.    LWrite "--------------------------------------------------------"
  154.    LWrite "--- PC Week News                                     ---"
  155.    LWrite "--------------------------------------------------------"
  156.    ; The delay gives the screen a chance to catch up
  157.    DELAY 50
  158.  
  159.    GO ZNT:PCWNEWS
  160.    ;     1 Top Stories
  161.    ;     2 Product News and Reviews
  162.    ;     3 Industry News
  163.    ;     4 The Week in Review/Opinion
  164.    ;     5 Spencer F. Katt
  165.    ;     6 Executives Online Forum (NOT FREE)
  166.    ;     7 Companies in the News
  167.    ;     8 PC Week EXTRA! Forum (NOT FREE)
  168.    ;     9 About PC Week News Briefs
  169.    ;    10 Download this Week's News
  170.    Wait "!"
  171.    LSend "10"
  172.  
  173.    ;    Download PC Week NEWS IN BRIEF
  174.    ;     1 Full text, ascii format
  175.    ;     2 Compressed (zipped) binary
  176.    Wait "!"
  177.    LSend "2"
  178.  
  179.    ;    PC WEEK EXTRA! SOFTEX
  180.    ;    THIS WEEK'S NEWS is free.
  181.    ;    You will not be charged for connect time during this download.
  182.    ;    Enter M for menu or
  183.    ;    press <CR> to begin transfer!
  184.    Wait "!"
  185.    Send ^M
  186.  
  187.    DELAY 40
  188.    ; Send a CR to to the screen to seperate the prompts
  189.    LWrite " "
  190.  
  191.    ; Pause for about 4 seconds while CIS catches up
  192.    ; number is in ticks, 18 = 1 second
  193.    Delay 100
  194.  
  195.    ;    Enter file name for your computer:
  196.    LSend "PCWNEWS.ZIP"
  197.  
  198.    ;     *** File Transfer Completed!! ***
  199.  
  200.    Wait "!"
  201.    Return
  202.    ;*******************************************************************
  203.  
  204.    GetBilling:
  205.    LWrite "--------------------------------------------------------"
  206.    LWrite "--- Billing Information                              ---"
  207.    LWrite "--------------------------------------------------------"
  208.    ; The delay gives the screen a chance to catch up
  209.    DELAY 50
  210.  
  211.    Timeout 180
  212.    LSend "GO BILL"
  213.    Wait "!"
  214.  
  215.    ;select "current info"
  216.    LSend "2"
  217.    Wait "Choice !"
  218.  
  219.    ;select "current charges" and capture to CISMail file
  220.    LSend "2"
  221.  
  222.    Capture ON CISMAIL.MES
  223.  
  224.    ;write a fake mail msg header
  225.    WMH
  226.    Wait "!"
  227.    Capture OFF
  228.    Send ^M
  229.  
  230.    ;now ask for billing history info, capture to CISMail file
  231.    Wait "Choice !"
  232.    LSend "3"
  233.    Capture ON CISMAIL.MES
  234.    Wait "!"
  235.    Capture OFF
  236.    Send ^M
  237.  
  238.    ;now ask for Activity info, capture to CISMail file
  239.    Wait "Choice !"
  240.    LSend "4"
  241.    Capture ON CISMAIL.MES
  242.    Wait "!"
  243.    Capture OFF
  244.    Send ^M
  245.    Wait "!"
  246.  
  247.    ;all done!
  248.    return
  249.  
  250.